home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / egavga.swg / 0012_Get current Videomode.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  557b  |  35 lines
  1. {
  2. Here's a quick proc. to return the current video mode:
  3. }
  4.  
  5. Uses
  6.   Dos;
  7.  
  8. Function CurVidMode : Byte;
  9.  
  10. Var
  11.   Regs : Registers;
  12.  
  13. begin;
  14.  
  15.   Regs.Ah :=$f;
  16.   Intr($10, Regs);
  17.   CurVidMode := Regs.Al;
  18.  
  19. end;
  20.  
  21. begin
  22.   Writeln(CurVidMode);
  23. end.
  24.  
  25.  
  26. {
  27. You can use that same color Procedure For the VGA 16 color mode because
  28. although it can only do 16 colors, it can still change each of the 16
  29. colors to 64*64*64 (262,144) colors, like the 256 color mode.
  30.  
  31. About the EGA palette - I'll have to get back to ya, that's more
  32. complex.
  33. }
  34.  
  35.